home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Collections: Taifun
/
Taifun 136 (1990-05-15)(Ossowski, Stefan)(DE)(PD).zip
/
Taifun 136 (1990-05-15)(Ossowski, Stefan)(DE)(PD).adf
/
MF-Pascal_0.2
/
tst.p
< prev
next >
Wrap
Text File
|
1990-02-23
|
1KB
|
56 lines
program test(input,outpu);
const
konst=5;
ne= 3;
pie= 3.1415;
type
int = integer;
byte = 0 .. 255;
pint = ^int;
nix = (gut,schlecht,mittel,hoch,neu,alt);
tneu = file of char;
{ tx = set of int; Integer als set nicht zugelassen }
tx1 = set of byte;
tx2 = set of nix;
tx3 = set of char;
tx4 = set of boolean;
zahlen = array[3..33] of integer;
rtyp = record
a,b,c: int;
e,f: byte;
end;
var
i , j : int;
ra, rb, rc : real;
tz: byte;
pz: ^byte;
was: (dick,duenn,lang,breit);
f1 : tneu;
f2 : file of byte;
txy : set of nix;
sammel : array [1..5] of nix;
rvar : record
a1,a2,a3: integer;
b1,b2,b3: byte;
c0,c1: record
d1: ^int;
d2: rtyp;
end;
e1,e2: nix;
end;
procedure otto;
var
ij: integer;
Begin {otto}
ij := 1;
ij := ij + 2;
end; {otto}
Begin
i := 1;
j := 2+3*2;
ra := pie * 2.5;
writeln("Hello World");
end.